home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 tool.sit / Perl Tool ƒ / lib / StandardFile.pl < prev    next >
MacBinary  |  1994-01-05  |  3.9 KB  |  [TEXT/McPL]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: StandardFile.pl

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Claris Works palette files (other/clarisWorksPaletteFiles) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Wed Jan 5 23:57:06 1994, modified Wed Jan 5 23:57:06 1994, creator 'McPL', type ASCII, 2809 bytes "StandardFile.pl" Perl script text executable default (weak)
99% file a /usr/bin/perl script executable (binary data), at 0xb79 941 bytes resource Perl script text executable default (weak)
98% file a /usr/bin/perl script executable (binary data) default (weak)
97% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[McPL]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 53 74 61 6e 64 61 | 72 64 46 69 6c 65 2e 70 |..Standa|rdFile.p|
|00000010| 6c 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |l.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 63 50 | 4c 01 00 00 00 00 00 00 |.TEXTMcP|L.......|
|00000050| 00 00 00 00 00 0a f9 00 | 00 03 ad a9 51 4a a2 a9 |........|....QJ..|
|00000060| 51 4a a2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |QJ......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 26 e0 00 00 |........|....&...|
|00000080| 23 21 2f 75 73 72 2f 62 | 69 6e 2f 70 65 72 6c 0d |#!/usr/b|in/perl.|
|00000090| 23 20 53 74 61 6e 64 61 | 72 64 46 69 6c 65 2e 70 |# Standa|rdFile.p|
|000000a0| 6c 0d 23 20 53 74 61 6e | 64 61 72 64 20 46 69 6c |l.# Stan|dard Fil|
|000000b0| 65 20 50 61 63 6b 61 67 | 65 20 55 74 69 6c 69 74 |e Packag|e Utilit|
|000000c0| 79 20 66 6f 72 20 4d 61 | 63 50 65 72 6c 20 34 2e |y for Ma|cPerl 4.|
|000000d0| 31 2e 31 0d 23 0d 23 20 | 31 39 39 34 2e 30 31 2e |1.1.#.# |1994.01.|
|000000e0| 30 35 20 76 34 2e 31 2e | 31 20 4d 61 74 74 68 69 |05 v4.1.|1 Matthi|
|000000f0| 61 73 20 4e 65 65 72 61 | 63 68 65 72 20 3c 6e 65 |as Neera|cher <ne|
|00000100| 65 72 69 40 69 69 73 2e | 65 65 2e 65 74 68 7a 2e |eri@iis.|ee.ethz.|
|00000110| 63 68 3e 0d 23 20 20 4d | 69 6e 6f 72 20 63 68 61 |ch>.#  M|inor cha|
|00000120| 6e 67 65 73 20 74 6f 20 | 72 65 66 6c 65 63 74 20 |nges to |reflect |
|00000130| 66 75 74 75 72 65 20 70 | 6c 61 6e 73 20 66 6f 72 |future p|lans for|
|00000140| 20 73 74 61 6e 64 61 72 | 64 20 66 69 6c 65 20 73 | standar|d file s|
|00000150| 75 70 70 6f 72 74 2e 0d | 23 0d 23 20 31 39 39 33 |upport..|#.# 1993|
|00000160| 2e 31 30 2e 32 37 20 76 | 31 2e 32 09 77 6d 0d 23 |.10.27 v|1.2.wm.#|
|00000170| 09 43 68 61 6e 67 65 20 | 74 68 65 20 63 61 6c 6c |.Change |the call|
|00000180| 69 6e 67 20 73 79 6e 74 | 61 78 20 74 6f 20 61 64 |ing synt|ax to ad|
|00000190| 6f 70 74 20 74 68 65 20 | 34 2e 31 2e 30 20 72 65 |opt the |4.1.0 re|
|000001a0| 6c 65 61 73 65 2e 0d 23 | 09 0d 23 20 31 39 39 33 |lease..#|..# 1993|
|000001b0| 2e 31 30 2e 31 39 20 76 | 31 2e 31 09 77 6d 0d 23 |.10.19 v|1.1.wm.#|
|000001c0| 09 63 6f 6e 76 65 72 74 | 20 66 6f 72 20 34 2e 31 |.convert| for 4.1|
|000001d0| 62 36 0d 23 0d 23 20 31 | 39 39 33 2e 38 2e 31 30 |b6.#.# 1|993.8.10|
|000001e0| 20 20 56 31 2e 30 0d 23 | 20 20 20 20 20 57 61 74 |  V1.0.#|     Wat|
|000001f0| 61 6e 61 62 65 20 4d 61 | 6b 69 20 28 57 61 74 61 |anabe Ma|ki (Wata|
|00000200| 6e 61 62 65 2e 4d 61 6b | 69 40 74 6b 6f 2e 64 65 |nabe.Mak|i@tko.de|
|00000210| 63 2e 63 6f 6d 29 0d 23 | 0d 0d 72 65 71 75 69 72 |c.com).#|..requir|
|00000220| 65 20 22 47 55 53 49 2e | 70 68 22 3b 0d 0d 70 61 |e "GUSI.|ph";..pa|
|00000230| 63 6b 61 67 65 20 53 74 | 61 6e 64 61 72 64 46 69 |ckage St|andardFi|
|00000240| 6c 65 3b 0d 0d 23 20 4e | 61 6d 65 0d 23 20 20 20 |le;..# N|ame.#   |
|00000250| 47 65 74 46 69 6c 65 0d | 23 20 53 79 6e 74 61 78 |GetFile.|# Syntax|
|00000260| 0d 23 20 20 20 24 66 69 | 6c 65 6e 61 6d 65 20 3d |.#   $fi|lename =|
|00000270| 20 26 47 65 74 46 69 6c | 65 28 5b 24 70 72 6f 6d | &GetFil|e([$prom|
|00000280| 70 74 2c 20 5d 20 40 74 | 79 70 65 73 20 5b 2c 20 |pt, ] @t|ypes [, |
|00000290| 24 64 65 66 61 75 6c 74 | 5d 29 3b 0d 23 20 44 65 |$default|]);.# De|
|000002a0| 73 63 72 69 70 74 69 6f | 6e 0d 23 20 20 20 51 75 |scriptio|n.#   Qu|
|000002b0| 65 72 79 20 61 20 65 78 | 69 73 74 69 6e 67 20 66 |ery a ex|isting f|
|000002c0| 69 6c 65 20 6e 61 6d 65 | 20 74 6f 20 75 73 65 72 |ile name| to user|
|000002d0| 20 62 79 20 53 74 61 6e | 64 61 72 64 20 46 69 6c | by Stan|dard Fil|
|000002e0| 65 20 44 69 61 6c 6f 67 | 20 42 6f 78 2e 0d 23 20 |e Dialog| Box..# |
|000002f0| 20 20 24 70 72 6f 6d 70 | 74 20 69 73 20 61 20 75 |  $promp|t is a u|
|00000300| 73 65 72 20 70 72 6f 6d | 70 74 2c 20 77 68 69 63 |ser prom|pt, whic|
|00000310| 68 20 69 73 20 69 67 6e | 6f 72 65 64 20 75 6e 64 |h is ign|ored und|
|00000320| 65 72 20 34 2e 31 2e 31 | 2c 20 62 75 74 20 77 69 |er 4.1.1|, but wi|
|00000330| 6c 6c 20 0d 23 20 20 20 | 70 72 6f 62 61 62 6c 79 |ll .#   |probably|
|00000340| 20 62 65 20 73 68 6f 77 | 6e 20 69 6e 20 61 20 66 | be show|n in a f|
|00000350| 75 74 75 72 65 20 76 65 | 72 73 69 6f 6e 2e 20 24 |uture ve|rsion. $|
|00000360| 70 72 6f 6d 70 74 20 73 | 68 6f 75 6c 64 20 6e 65 |prompt s|hould ne|
|00000370| 76 65 72 20 62 65 20 61 | 20 0d 23 20 20 20 73 74 |ver be a| .#   st|
|00000380| 72 69 6e 67 20 6f 66 20 | 6c 65 6e 67 74 68 20 34 |ring of |length 4|
|00000390| 2e 0d 23 20 20 20 40 74 | 79 70 65 73 20 69 73 20 |..#   @t|ypes is |
|000003a0| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 66 69 |a list o|f the fi|
|000003b0| 6c 65 20 74 79 70 65 20 | 77 68 69 63 68 20 69 73 |le type |which is|
|000003c0| 20 75 73 65 64 20 66 6f | 72 0d 23 20 20 20 66 69 | used fo|r.#   fi|
|000003d0| 6c 74 65 72 69 6e 67 20 | 74 68 65 20 66 69 6c 65 |ltering |the file|
|000003e0| 20 6c 69 73 74 20 69 6e | 20 74 68 65 20 64 69 61 | list in| the dia|
|000003f0| 6c 6f 67 20 62 6f 78 2e | 0d 23 0d 73 75 62 20 47 |log box.|.#.sub G|
|00000400| 65 74 46 69 6c 65 20 7b | 0d 20 20 20 20 6c 6f 63 |etFile {|.    loc|
|00000410| 61 6c 28 24 70 72 6f 6d | 70 74 2c 40 74 79 70 65 |al($prom|pt,@type|
|00000420| 73 29 20 3d 20 40 5f 3b | 0d 09 20 6c 6f 63 61 6c |s) = @_;|.. local|
|00000430| 28 24 64 65 66 61 75 6c | 74 29 20 3d 20 70 6f 70 |($defaul|t) = pop|
|00000440| 28 40 74 79 70 65 73 29 | 3b 0d 09 20 0d 09 20 69 |(@types)|;.. .. i|
|00000450| 66 20 28 6c 65 6e 67 74 | 68 28 24 70 72 6f 6d 70 |f (lengt|h($promp|
|00000460| 74 29 20 3d 3d 20 34 29 | 20 7b 0d 09 09 20 20 75 |t) == 4)| {...  u|
|00000470| 6e 73 68 69 66 74 28 40 | 74 79 70 65 73 2c 20 24 |nshift(@|types, $|
|00000480| 70 72 6f 6d 70 74 29 3b | 0d 20 20 20 20 20 20 20 |prompt);|.       |
|00000490| 20 24 70 72 6f 6d 70 74 | 20 3d 20 22 22 3b 0d 20 | $prompt| = "";. |
|000004a0| 20 20 20 7d 0d 09 20 69 | 66 20 28 6c 65 6e 67 74 |   }.. i|f (lengt|
|000004b0| 68 28 24 64 65 66 61 75 | 6c 74 29 20 3d 3d 20 34 |h($defau|lt) == 4|
|000004c0| 29 20 7b 0d 09 09 20 20 | 70 75 73 68 28 40 74 79 |) {...  |push(@ty|
|000004d0| 70 65 73 2c 20 24 64 65 | 66 61 75 6c 74 29 3b 0d |pes, $de|fault);.|
|000004e0| 20 20 20 20 20 20 20 20 | 75 6e 64 65 66 20 24 64 |        |undef $d|
|000004f0| 65 66 61 75 6c 74 3b 0d | 20 20 20 20 7d 0d 09 20 |efault;.|    }.. |
|00000500| 0d 20 20 20 20 26 4d 61 | 63 50 65 72 6c 27 43 68 |.    &Ma|cPerl'Ch|
|00000510| 6f 6f 73 65 28 0d 20 20 | 20 20 20 20 20 20 26 47 |oose(.  |      &G|
|00000520| 55 53 49 27 41 46 5f 46 | 49 4c 45 2c 20 20 20 20 |USI'AF_F|ILE,    |
|00000530| 20 20 20 20 20 20 23 20 | 64 6f 6d 61 69 6e 0d 20 |      # |domain. |
|00000540| 20 20 20 20 20 20 20 30 | 2c 20 20 20 20 20 20 20 |       0|,       |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 23 |        |       #|
|00000560| 20 74 79 70 65 0d 20 20 | 20 20 20 20 20 20 24 70 | type.  |      $p|
|00000570| 72 6f 6d 70 74 2c 20 20 | 20 20 20 20 20 20 20 20 |rompt,  |        |
|00000580| 20 20 20 20 20 20 23 20 | 70 72 6f 6d 70 74 0d 20 |      # |prompt. |
|00000590| 20 20 20 20 20 20 20 26 | 47 55 53 49 27 70 61 63 |       &|GUSI'pac|
|000005a0| 6b 5f 73 61 5f 63 6f 6e | 73 74 72 5f 66 69 6c 65 |k_sa_con|str_file|
|000005b0| 28 40 74 79 70 65 73 29 | 2c 0d 09 09 20 20 20 20 |(@types)|,...    |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 20 20 20 20 23 20 | 63 6f 6e 73 74 72 61 69 |      # |constrai|
|000005e0| 6e 74 0d 20 20 20 20 20 | 20 20 20 28 24 64 65 66 |nt.     |   ($def|
|000005f0| 61 75 6c 74 20 3f 20 26 | 47 55 53 49 27 43 48 4f |ault ? &|GUSI'CHO|
|00000600| 4f 53 45 5f 44 45 46 41 | 55 4c 54 20 3a 20 30 29 |OSE_DEFA|ULT : 0)|
|00000610| 2c 20 20 20 20 0d 09 09 | 20 20 09 09 09 09 09 09 |,    ...|  ......|
|00000620| 09 09 20 20 23 20 66 6c | 61 67 20 0d 20 20 20 20 |..  # fl|ag .    |
|00000630| 20 20 20 20 24 64 65 66 | 61 75 6c 74 20 20 20 20 |    $def|ault    |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 23 20 64 65 |        |    # de|
|00000650| 66 61 75 6c 74 20 66 69 | 6c 65 6e 61 6d 65 0d 20 |fault fi|lename. |
|00000660| 20 20 20 20 20 20 20 29 | 3b 0d 7d 0d 0d 23 20 4e |       )|;.}..# N|
|00000670| 61 6d 65 0d 23 20 20 20 | 20 50 75 74 46 69 6c 65 |ame.#   | PutFile|
|00000680| 2f 47 65 74 4e 65 77 46 | 69 6c 65 0d 23 20 53 79 |/GetNewF|ile.# Sy|
|00000690| 6e 74 61 78 0d 23 20 20 | 20 20 24 66 69 6c 65 6e |ntax.#  |  $filen|
|000006a0| 61 6d 65 20 3d 20 26 50 | 75 74 46 69 6c 65 28 24 |ame = &P|utFile($|
|000006b0| 70 72 6f 6d 70 74 20 5b | 2c 20 24 64 65 66 61 75 |prompt [|, $defau|
|000006c0| 6c 74 5d 29 3b 0d 23 20 | 20 20 20 24 66 69 6c 65 |lt]);.# |   $file|
|000006d0| 6e 61 6d 65 20 3d 20 26 | 47 65 74 4e 65 77 46 69 |name = &|GetNewFi|
|000006e0| 6c 65 28 24 70 72 6f 6d | 70 74 20 5b 2c 20 24 64 |le($prom|pt [, $d|
|000006f0| 65 66 61 75 6c 74 5d 29 | 3b 0d 23 20 44 65 73 63 |efault])|;.# Desc|
|00000700| 72 69 70 74 69 6f 6e 0d | 23 20 20 20 20 51 75 65 |ription.|#    Que|
|00000710| 72 79 20 61 20 6e 65 77 | 20 66 69 6c 65 20 6e 61 |ry a new| file na|
|00000720| 6d 65 20 74 6f 20 75 73 | 65 72 20 62 79 20 53 74 |me to us|er by St|
|00000730| 61 6e 64 61 72 64 20 46 | 69 6c 65 20 44 69 61 6c |andard F|ile Dial|
|00000740| 6f 67 20 42 6f 78 2e 0d | 23 20 20 20 20 24 70 72 |og Box..|#    $pr|
|00000750| 6f 6d 70 74 20 69 73 20 | 61 20 70 72 6f 6d 70 74 |ompt is |a prompt|
|00000760| 20 73 74 69 6e 67 20 6f | 6e 20 74 68 65 20 64 69 | sting o|n the di|
|00000770| 61 6c 6f 67 20 62 6f 78 | 2e 0d 23 20 20 20 20 24 |alog box|..#    $|
|00000780| 64 65 66 61 75 6c 74 20 | 69 73 20 61 20 64 65 66 |default |is a def|
|00000790| 61 75 6c 74 20 66 69 6c | 65 20 6e 61 6d 65 2e 0d |ault fil|e name..|
|000007a0| 23 0d 73 75 62 20 50 75 | 74 46 69 6c 65 20 7b 0d |#.sub Pu|tFile {.|
|000007b0| 20 20 20 20 6c 6f 63 61 | 6c 28 24 70 72 6f 6d 70 |    loca|l($promp|
|000007c0| 74 2c 20 24 64 65 66 61 | 75 6c 74 29 20 3d 20 40 |t, $defa|ult) = @|
|000007d0| 5f 3b 0d 20 20 20 20 0d | 20 20 20 20 26 4d 61 63 |_;.    .|    &Mac|
|000007e0| 50 65 72 6c 27 43 68 6f | 6f 73 65 28 0d 20 20 20 |Perl'Cho|ose(.   |
|000007f0| 20 20 20 20 20 26 47 55 | 53 49 27 41 46 5f 46 49 |     &GU|SI'AF_FI|
|00000800| 4c 45 2c 20 20 20 20 20 | 20 20 20 20 23 20 64 6f |LE,     |    # do|
|00000810| 6d 61 69 6e 0d 20 20 20 | 20 20 20 20 20 30 2c 20 |main.   |     0, |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000830| 20 20 20 20 23 20 74 79 | 70 65 0d 20 20 20 20 20 |    # ty|pe.     |
|00000840| 20 20 20 24 70 72 6f 6d | 70 74 2c 20 20 20 20 20 |   $prom|pt,     |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 23 20 70 72 6f 6d |        |  # prom|
|00000860| 70 74 0d 20 20 20 20 20 | 20 20 20 22 22 2c 20 20 |pt.     |   "",  |
|00000870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000880| 20 20 23 20 63 6f 6e 73 | 74 72 61 69 6e 74 0d 20 |  # cons|traint. |
|00000890| 20 20 20 20 20 20 20 26 | 47 55 53 49 27 43 48 4f |       &|GUSI'CHO|
|000008a0| 4f 53 45 5f 4e 45 57 20 | 2b 20 28 24 64 65 66 61 |OSE_NEW |+ ($defa|
|000008b0| 75 6c 74 20 3f 20 26 47 | 55 53 49 27 43 48 4f 4f |ult ? &G|USI'CHOO|
|000008c0| 53 45 5f 44 45 46 41 55 | 4c 54 20 3a 20 30 29 2c |SE_DEFAU|LT : 0),|
|000008d0| 20 20 20 20 0d 09 09 20 | 20 09 09 09 09 09 09 09 |    ... | .......|
|000008e0| 09 20 23 20 66 6c 61 67 | 20 0d 20 20 20 20 20 20 |. # flag| .      |
|000008f0| 20 20 24 64 65 66 61 75 | 6c 74 20 20 20 20 20 20 |  $defau|lt      |
|00000900| 20 20 20 20 20 20 20 20 | 20 23 20 64 65 66 61 75 |        | # defau|
|00000910| 6c 74 20 66 69 6c 65 6e | 61 6d 65 0d 20 20 20 20 |lt filen|ame.    |
|00000920| 20 20 20 20 29 3b 0d 7d | 0d 0d 73 75 62 20 47 65 |    );.}|..sub Ge|
|00000930| 74 4e 65 77 46 69 6c 65 | 20 7b 0d 09 26 50 75 74 |tNewFile| {..&Put|
|00000940| 46 69 6c 65 3b 0d 7d 0d | 0d 23 20 4e 61 6d 65 0d |File;.}.|.# Name.|
|00000950| 23 20 20 20 20 47 65 74 | 46 6f 6c 64 65 72 0d 23 |#    Get|Folder.#|
|00000960| 20 53 79 6e 74 61 78 0d | 23 20 20 20 20 24 66 6f | Syntax.|#    $fo|
|00000970| 6c 64 65 72 6e 61 6d 65 | 20 3d 20 26 47 65 74 46 |ldername| = &GetF|
|00000980| 6f 6c 64 65 72 28 24 70 | 72 6f 6d 70 74 20 5b 2c |older($p|rompt [,|
|00000990| 20 24 64 65 66 61 75 6c | 74 5d 29 3b 0d 23 20 44 | $defaul|t]);.# D|
|000009a0| 65 73 63 72 69 70 74 69 | 6f 6e 0d 23 20 51 75 65 |escripti|on.# Que|
|000009b0| 72 79 20 61 20 66 6f 6c | 64 65 72 20 6e 61 6d 65 |ry a fol|der name|
|000009c0| 20 74 6f 20 75 73 65 72 | 20 62 79 20 53 74 61 6e | to user| by Stan|
|000009d0| 64 61 72 64 20 46 69 6c | 65 20 44 69 61 6c 6f 67 |dard Fil|e Dialog|
|000009e0| 20 42 6f 78 2e 0d 23 20 | 24 64 65 66 61 75 6c 74 | Box..# |$default|
|000009f0| 20 69 73 20 74 68 65 20 | 64 65 66 61 75 6c 74 20 | is the |default |
|00000a00| 64 69 61 6c 6f 67 0d 23 | 0d 73 75 62 20 47 65 74 |dialog.#|.sub Get|
|00000a10| 46 6f 6c 64 65 72 20 7b | 0d 09 6c 6f 63 61 6c 28 |Folder {|..local(|
|00000a20| 24 70 72 6f 6d 70 74 2c | 20 24 64 65 66 61 75 6c |$prompt,| $defaul|
|00000a30| 74 29 20 3d 20 40 5f 3b | 0d 09 0d 20 20 20 20 26 |t) = @_;|...    &|
|00000a40| 4d 61 63 50 65 72 6c 27 | 43 68 6f 6f 73 65 28 0d |MacPerl'|Choose(.|
|00000a50| 20 20 20 20 20 20 20 20 | 26 47 55 53 49 27 41 46 |        |&GUSI'AF|
|00000a60| 5f 46 49 4c 45 2c 20 20 | 20 20 20 20 20 20 20 20 |_FILE,  |        |
|00000a70| 23 20 64 6f 6d 61 69 6e | 0d 20 20 20 20 20 20 20 |# domain|.       |
|00000a80| 20 30 2c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0,     |        |
|00000a90| 20 20 20 20 20 20 20 20 | 20 23 20 74 79 70 65 0d |        | # type.|
|00000aa0| 20 20 20 20 20 20 20 20 | 24 70 72 6f 6d 70 74 2c |        |$prompt,|
|00000ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ac0| 23 20 70 72 6f 6d 70 74 | 0d 20 20 20 20 20 20 20 |# prompt|.       |
|00000ad0| 20 22 22 2c 20 20 20 20 | 20 20 20 20 20 20 20 20 | "",    |        |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 23 20 63 6f 6e 73 74 |        | # const|
|00000af0| 72 61 69 6e 74 0d 20 20 | 20 20 20 20 20 20 26 47 |raint.  |      &G|
|00000b00| 55 53 49 27 43 48 4f 4f | 53 45 5f 44 49 52 20 2b |USI'CHOO|SE_DIR +|
|00000b10| 20 28 24 64 65 66 61 75 | 6c 74 20 3f 20 26 47 55 | ($defau|lt ? &GU|
|00000b20| 53 49 27 43 48 4f 4f 53 | 45 5f 44 45 46 41 55 4c |SI'CHOOS|E_DEFAUL|
|00000b30| 54 20 3a 20 30 29 2c 0d | 09 09 20 20 20 20 20 20 |T : 0),.|..      |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b50| 20 20 20 20 23 20 66 6c | 61 67 0d 09 09 20 20 24 |    # fl|ag...  $|
|00000b60| 64 65 66 61 75 6c 74 0d | 20 20 20 20 20 20 20 20 |default.|        |
|00000b70| 29 3b 0d 7d 0d 0d 31 3b | 0d 00 00 00 00 00 00 00 |);.}..1;|........|
|00000b80| 00 00 01 00 00 00 03 0a | 00 00 02 0a 00 00 00 a3 |........|........|
|00000b90| 00 00 00 02 0a 44 65 73 | 6b 74 6f 70 20 44 46 00 |.....Des|ktop DF.|
|00000ba0| 02 00 00 a6 44 54 46 4c | 44 4d 47 52 40 00 00 00 |....DTFL|DMGR@...|
|00000bb0| 0f 53 74 61 6e 64 61 72 | 64 46 69 6c 65 2e 70 6c |.Standar|dFile.pl|
|00000bc0| 02 00 00 00 54 45 58 54 | 4d 63 50 4c 01 00 01 6c |....TEXT|McPL...l|
|00000bd0| 00 00 54 45 58 54 4d 63 | 50 4c 01 00 01 6c 00 50 |..TEXTMc|PL...l.P|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 a9 44 90 83 00 00 | 0a f9 00 00 03 ad 00 00 |...D....|........|
|00000c00| 00 00 00 00 00 00 14 00 | 00 00 00 02 0e 44 65 73 |........|.....Des|
|00000c10| 6b 74 6f 70 20 46 6f 6c | 64 65 72 44 01 00 00 00 |ktop Fol|derD....|
|00000c20| 00 00 00 00 00 12 a8 b1 | 74 19 a8 b1 74 19 00 00 |........|t...t...|
|00000c30| 00 00 00 7a 00 2c 01 36 | 01 c0 11 00 00 40 00 00 |...z.,.6|.....@..|
|00000c40| 01 00 ff f8 ff f0 00 00 | 00 00 00 60 00 00 00 00 |........|...`....|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 11 00 00 00 00 02 | 0b 44 65 76 65 6c 6f 70 |........|.Develop|
|00000c70| 6d 65 6e 74 01 00 00 00 | 00 06 00 00 00 15 a8 0e |ment....|........|
|00000c80| 00 00 00 78 00 05 00 00 | 00 48 00 48 00 00 00 00 |...x....|.H.H....|
|00000c90| 03 0d 02 2f ff e7 ff ee | 03 31 02 41 1f 03 05 7b |.../....|.1.A...{|
|00000ca0| 03 e0 00 01 00 00 01 2c | 01 2c 00 00 00 00 0c b6 |.......,|.,......|
|00000cb0| 09 19 01 2c 00 2d 05 a0 | 5e ec 00 26 04 01 01 01 |...,.-..|^..&....|
|00000cc0| 00 18 00 01 27 0f 00 01 | 00 01 00 00 00 00 00 00 |....'...|........|
|00000cd0| 00 00 00 00 00 00 00 01 | 00 64 00 00 00 00 00 00 |........|.d......|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 01 00 00 02 | 41 00 00 00 00 00 01 10 |........|A.......|
|00000d00| 00 3c 00 14 01 62 01 cc | 06 4d 6f 6e 61 63 6f 00 |.<...b..|.Monaco.|
|00000d10| 00 00 03 a0 61 20 66 72 | 6f 6d 6f 62 6a 20 00 00 |....a fr|omobj ..|
|00000d20| 00 46 00 00 00 04 00 00 | 00 00 77 61 6e 74 74 79 |.F......|..wantty|
|00000d30| 70 65 00 00 00 04 63 77 | 69 6e 66 72 6f 6d 6e 75 |pe....cw|infromnu|
|00000d40| 6c 6c 00 00 00 00 66 6f | 72 6d 65 6e 75 6d 00 00 |ll....fo|rmenum..|
|00000d50| 00 04 6e 61 6d 65 73 65 | 6c 64 54 45 58 54 00 00 |..namese|ldTEXT..|
|00000d60| 00 05 53 46 2e 70 6c 00 | 66 6f 72 6d 65 6e 75 6d |..SF.pl.|formenum|
|00000d70| 00 00 00 04 69 6e 64 78 | 73 65 6c 64 6c 6f 6e 67 |....indx|seldlong|
|00000d80| 00 00 00 04 00 00 01 72 | 73 74 6f 70 6f 62 6a 20 |.......r|stopobj |
|00000d90| 00 00 00 8a 00 00 00 04 | 00 00 00 00 77 61 6e 74 |........|....want|
|00000da0| 74 79 70 65 00 00 00 04 | 63 68 61 20 66 72 6f 6d |type....|cha from|
|00000db0| 6f 62 6a 20 00 00 00 46 | 00 00 00 04 00 00 00 00 |obj ...F|........|
|00000dc0| 77 61 6e 74 74 79 70 65 | 00 00 00 04 63 77 69 6e |wanttype|....cwin|
|00000dd0| 66 72 6f 6d 6e 75 6c 6c | 00 00 00 00 66 6f 72 6d |fromnull|....form|
|00000de0| 65 6e 75 6d 00 00 00 04 | 6e 61 6d 65 73 65 6c 64 |enum....|nameseld|
|00000df0| 00 00 04 7c 00 00 00 05 | 53 46 2e 70 6c 00 66 6f |...|....|SF.pl.fo|
|00000e00| 72 6d 65 6e 75 6d 00 00 | 00 09 69 6e 00 00 00 00 |rmenum..|..in....|
|00000e10| 00 00 00 08 07 4d 61 63 | 50 65 72 6c 00 00 00 48 |.....Mac|Perl...H|
|00000e20| 00 09 4d 6f 6e 61 63 6f | 00 00 00 00 00 00 00 00 |..Monaco|........|
|00000e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e40| 00 00 00 06 00 03 00 78 | 00 19 01 dd 02 3e 00 78 |.......x|.....>.x|
|00000e50| 00 19 01 dd 02 3e a9 51 | 04 52 00 00 05 cc 00 00 |.....>.Q|.R......|
|00000e60| 05 cc 00 00 01 99 01 00 | 00 00 00 1e 00 78 00 19 |........|.....x..|
|00000e70| 01 dd 02 3e 00 78 00 19 | 01 dd 02 3e 00 00 01 99 |...>.x..|...>....|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00000e90| 03 0a 00 00 02 0a 00 00 | 00 a3 00 3c 14 c8 19 58 |........|...<...X|
|00000ea0| 00 00 00 1c 00 7a 00 03 | 54 46 53 50 00 00 00 22 |.....z..|TFSP..."|
|00000eb0| 54 46 53 53 00 00 00 2e | 53 54 52 20 00 00 00 3a |TFSS....|STR ...:|
|00000ec0| 4d 50 53 52 00 01 00 46 | 00 ff 00 00 00 00 00 00 |MPSR...F|........|
|00000ed0| 00 00 00 00 00 ff 00 0d | 00 00 00 7c 00 00 00 00 |........|...|....|
|00000ee0| bf f4 00 19 00 00 01 90 | 00 00 00 00 03 ed ff ff |........|........|
|00000ef0| 00 00 01 9c 00 00 00 00 | 03 f0 ff ff 00 00 01 e8 |........|........|
|00000f00| 00 3e 6b b8 0c 50 72 69 | 6e 74 65 72 20 49 6e 66 |.>k..Pri|nter Inf|
|00000f10| 6f 0b 48 65 61 64 65 72 | 20 49 6e 66 6f 0f 46 69 |o.Header| Info.Fi|
|00000f20| 6e 64 65 72 20 41 70 70 | 20 49 6e 66 6f 00 00 00 |nder App| Info...|
|00000f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+